home *** CD-ROM | disk | FTP | other *** search
/ Aminet 28 / Aminet 28 (1998)(GTI - Schatztruhe)[!][Dec 1998].iso / Aminet / docs / lists / DevGuide.lha / DevGuide / MyCheck.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1998-10-16  |  1.7 KB  |  63 lines
  1. /*************************************************
  2.  * myCheck.rexx to split $Check1 and $Check2     *
  3.  * V1.0 © Heiko Schröder 10/98                   *
  4.  *************************************************
  5.  *                                               *
  6.  * 1.0 - erstes Release, um auch Versions mit-   *
  7.  *       einander vergleichen zu können          *
  8.  *************************************************/
  9.  
  10. Parse ARG check1","check2
  11. check2=Delstr(check2,1,1)
  12. address command '"SetEnv" Check2='check2
  13.  
  14. pos1  =lastpos(" ",check1)
  15. check1=Delstr(check1,1,pos1)
  16. address command '"SetEnv" Version='check1
  17. punkt1=lastpos(".",check1)
  18. If punkt1~=0 then check1=Delstr(check1,punkt1,1)
  19. len1=Length(check1)
  20.  
  21. pos2  =lastpos(" ",check2)
  22. check2=Delstr(check2,1,pos2)
  23. punkt2=lastpos(".",check2)
  24. If punkt2~=0 then check2=Delstr(check2,punkt2,1)
  25. len2=Length(check2)
  26.  
  27. /* Kontrolle wenn unterschiedlich lange Ganzzahlen */
  28. Select
  29.    When punkt1>punkt2 then do
  30.       address command '"SetEnv" Checkdev1='1
  31.       address command '"SetEnv" Checkdev2='0
  32.       Exit
  33.    End
  34.    When punkt1<punkt2 then do
  35.       address command '"SetEnv" Checkdev1='0
  36.       address command '"SetEnv" Checkdev2='1
  37.       Exit
  38.    End
  39.    Otherwise NOP
  40. END
  41.  
  42. /* check2 ist ein paar Stellen zu kurz */
  43. If len1>len2 then check2=Insert("0",check2,len2,len1-len2,"0")
  44.  
  45. Select
  46.    /* System ist neuer */
  47.    When check1>check2 then do
  48.       address command '"SetEnv" Checkdev1='1
  49.       address command '"SetEnv" Checkdev2='0
  50.    End
  51.    /* guide ist neuer */
  52.    When check1<check2 then do
  53.       address command '"SetEnv" Checkdev1='0
  54.       address command '"SetEnv" Checkdev2='1
  55.    End
  56.    /* gleich */
  57.    Otherwise do
  58.       address command '"SetEnv" Checkdev1='1
  59.       address command '"SetEnv" Checkdev2='1
  60.    End
  61. End
  62. Exit
  63.